home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern7.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  202 b   |  15 lines  |  [TEXT/MPS ]
  1. MODULE Pattern7;
  2.   VAR
  3.     i: INTEGER;
  4.     s: SET;
  5. BEGIN
  6.   CASE i OF
  7.     0: s:={0, 31};
  8.   | 1: s:={1, 30};
  9.   | 2: s:={2, 29};
  10.   | 4: s:={4, 27};
  11.   | 5: s:={5, 26};
  12.   ELSE s:={6..25}
  13.   END
  14. END Pattern7.
  15.